home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / pump_src / setup / loader.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-22  |  945 b   |  36 lines
  1. {$M,30000,40000,60000}
  2. {$F+}
  3. Program Loader;
  4.  
  5. Uses Crt,Dos,LibFile;
  6.  
  7. Const
  8.    CLine=' /f:44000 /d:GUS /port:$220 /irq:7 /V:127 ';
  9.  
  10. Var Param:String;
  11.     P:Char;
  12. Begin
  13.   If ParamCount<>0 then Begin
  14.     FicheroExe:='LOADER2.EXE';
  15.     CommandLine:='';
  16.     Param:=ParamStr(1);
  17.     P:=Param[1];
  18.     Case P of
  19.       '1':ExecFile(LF_FindFile('borra.exe')^.offs);
  20.       '2':ExecFile(LF_FindFile('report.exe')^.offs);
  21.       '3':ExecFile(LF_FindFile('final.exe')^.offs);
  22.     End;
  23.   End
  24.   Else Begin
  25.     FicheroExe:='LOADER2.EXE';
  26.     CommandLine:='tragical.mod'+CLine+'/sh:loader2.exe 1';
  27.     ExecFile(LF_FindFile('demovt.exe')^.offs);
  28.     FicheroExe:='LOADER2.EXE';
  29.     CommandLine:='hyper3.s3m'+CLine+'/sh:loader2.exe 2';
  30.     ExecFile(LF_FindFile('demovt.exe')^.offs);
  31.     FicheroExe:='LOADER2.EXE';
  32.     CommandLine:='rc_drops.mod'+CLine+'/sh:loader2.exe 3';
  33.     ExecFile(LF_FindFile('demovt.exe')^.offs);
  34.   End;
  35. End.
  36.